Ham Radio 2000 #2

home *** CD-ROM | disk | FTP | other *** search

/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / FAX_SSTV / VESTER_M / TRUSHOB.BAS (.txt) < prev next >

Wrap

GW-BASIC | 1996-05-14 | 10.5 KB | 253 lines

10 CLEAR,32768:KEY OFF:COLOR 7,9,4:CLS 20 KEY 10,"666"+CHR$(13):KEY 5,"888"+CHR$(13) 25 KEY 4, "SAVE"+CHR$(34)+"TRUSHOB" 30 X$="files"+CHR$(34):KEY 9,X$ 60 PLAY "o3 l18 ff#gag l4 a" 70 GOTO 2000 80 DEF SEG=&H4F00 90 BLOAD"c:\tv\trushof.asm",&H100 92 IF BP=2 THEN POKE &H398,17:POKE &H319,17:POKE &H18D,17:POKE &H17A,233:POKE &H17B,67:POKE &H17C,5 95 IF BP=4 THEN POKE &H3CC,235:POKE &H3CD,32:POKE &H5CB,235:POKE &H5CC,187 100 D=INT(18.2*DL):DB=INT(D/256):DA=D-256*DB 110 POKE &H4A9,DA:POKE &H4AA,DB 120 PRINT:PRINT" TRUE COLOR SLIDE-SHOW VIEWING" 130 PRINT:PRINT" This program is for viewing SSTV pictures in sequence that were captured" 140 PRINT"with the K3BC SSTV program and reduced to a picture file stored in floppies," 150 PRINT"or on a RAMDISK or on the main Hard-disk as a full color picture file with" 160 PRINT"a MODE suffix attached. Pick MODE for the pix's you want to view and then" 170 PRINT"add any file name constraint (for example, pick Mode 3 and name constraint BE;" 180 PRINT"program views all files named BE*.S1). All keyboard commands (scroll,etc.) are" 190 PRINT"the same as the single pix viewing program, except N(ext) is added to sequence" 200 PRINT"to the next file in the directory. Or if you prefer, hit A for A(utomatic)" 210 PRINT"and the files will be presented for viewing in an automatic sequence. The" 220 PRINT"time delay between slides, DL, can be set in the SYSTEM CONFIGURATION in line" 230 PRINT"2050. You can see one pix at a time or sequence the pictures to see four at" 240 PRINT"a time. When in Automatic you can hit S(top) to pause and G(o) to restart." 250 PRINT"You can view any desired individual picture with this program by giving " 260 PRINT"the full Filename as constraint . Q(uit) returns to BASIC and then key F10" 270 PRINT"followed by ENTER to return to DOS, or F2 to view other pix's." 271 PRINT" When viewing pix captured in the Automatic/Save mode, you can also scroll" 272 PRINT"any picture you want to save, hit Q to exit the screen, and follow the in-" 273 PRINT"structions to Save the pix in either regular or compressed formats." 275 PRINT:PRINT" ------F5 to SYS CONFIG------F10 to DOS-------" 280 PRINT" What MODE used for Pix: (3)Scottie 1 (4)Scottie 2 (5)AVT90 (6)AVT94" 290 INPUT"(66)AVT188 (7)Martin1 (77)Martin2 (8)Wraase96 (96)ColorFAX ";I 300 IF I=0 THEN GOTO 280 302 IF I=888 THEN GOTO 960 305 IF I=666 THEN COLOR 7,0,0:CLS:SYSTEM 310 PRINT:PRINT:INPUT" What File Name Constraints (default=none)";A$ 320 IF I=3 THEN A$=A$+"*.s1":GOTO 410 330 IF I=8 THEN A$=A$+"*.96":GOTO 410 340 IF I=4 THEN A$=A$+"*.s2":GOTO 410 350 IF I=5 THEN A$=A$+"*.90":GOTO 410 360 IF I=6 THEN A$=A$+"*.94":GOTO 410 370 IF I=7 THEN A$=A$+"*.m1":GOTO 410 380 IF I=77 THEN A$=A$+"*.m2":GOTO 410 390 IF I=66 THEN A$=A$+"*.188":I=6:GOTO 410 395 IF I=96 THEN A$=A$+"*.cfx":GOTO 410 400 GOTO 280 410 IF I=3 THEN L=288 420 IF I=4 THEN L=184 430 IF I=5 THEN L=256 440 IF I=6 THEN L=320 450 IF I=7 THEN GOTO 970 460 IF I=77 THEN GOTO 970 470 IF I=8 THEN L=248 475 IF I=96 THEN L=546:LL=1638:PT=20:POKE &H3AC,1:POKE &H3B4,1:POKE &H3A2,224:POKE &H3A3,1 480 U=BP*L:UB=INT(U/256):UA=U-256*UB:POKE &H55F,UA:POKE &H560,UB:POKE &H531,UA:POKE &H532,UB 490 POKE &H226,2 'No. poked here=pixels scrolled per left arrow depression 500 POKE &H427,PT 501 FOR C=&HF50 TO &HFA0 502 POKE C,0:NEXT C 503 IF I=8 THEN PT=15 504 P=L-PT 510 P2=INT(P/256):P1=P-P2*256 520 POKE &H3B0,P1:POKE &H3B1,P2:POKE &H46B,P1:POKE &H46C,P2:POKE &H5CF,P1:POKE &H5D0,P2:POKE &H601,P1:POKE &H602,P2 530 LB=INT(L/256):LA=L-256*LB:POKE &H3BC,LA:POKE &H3BD,LB:POKE &H3C3,LA:POKE &H3C4,LB:POKE &H5BB,LA:POKE &H5BC,LB:POKE &H5C2,LA:POKE &H5C3,LB 535 IF I=96 THEN Q=BL-BP*P:GOTO 550 540 Q=BL-2*BP*P 550 Z=2*L:ZB=INT(Z/256):ZA=Z-256*ZB:POKE &H3CA,ZA:POKE &H3CB,ZB:POKE &H5C9,ZA:POKE &H5CA,ZB 560 W=2*L+32:WB=INT(W/256):WA=W-256*WB:POKE &H3A9,WA:POKE &H3AA,WB:POKE &H3E5,WA:POKE &H3E6,WB:POKE &H5FE,WA:POKE &H5FF,WB:POKE &H6B2,WA:POKE &H6B3,WB 570 IF I=7 THEN GOTO 600 580 IF I=77 THEN GOTO 600 590 GOTO 630 600 WM=L+32:WMB=INT(WM/256):WMA=WM-256*WMB:POKE &H3A9,WMA:POKE &H3AA,WMB:POKE &H3E5,WMA:POKE &H3E6,WMB:POKE &H5FE,WMA:POKE &H5FF,WMB:POKE &H6B2,WMA:POKE &H6B3,WMB 610 X=2*L:XB=INT(X/256):XA=X-256*XB:POKE &H3C3,XA:POKE &H3C4,XB:POKE &H3C2,199:POKE &H5C2,XA:POKE &H5C3,XB:POKE &H5C1,199 620 POKE &H3CA,LA:POKE &H3CB,LB:POKE &H3C9,239:POKE &H5C9,LA:POKE &H5CA,LB:POKE &H5C8,239 630 IF I=4 THEN LL=568 640 IF I=5 THEN LL=768 650 IF I=7 THEN LL=915 660 IF I=77 THEN LL=464 670 IF I=8 THEN LL=745 680 IF I=6 THEN LL=960 690 IF I=3 THEN LL=878 695 IF I=96 THEN OF=BP*(640-P)/2:GOTO 700 696 OF=BP*(640-2*P)/2 700 OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13C,OF1:POKE &H13D,OF2:POKE &H512,OF1:POKE &H513,OF2 701 NS=INT((240*BL)/65536):POKE &H542,NS:POKE &H515,22 702 NB=(240*BL)-NS*65536:NB2=INT(NB/256):NB1=NB-256*NB2:POKE &H54C,NB1:POKE &H54D,NB2 705 LY=LL+1:LYB=INT(LY/256):LYA=LY-256*LYB:POKE &H697,LYA:POKE &H698,LYB 706 LZ=2*LL:LZB=INT(LZ/256):LZA=LZ-256*LZB 707 SH=15*LL:SHB=INT(SH/256):SHA=SH-256*SHB 708 POKE &H509,144:POKE &H50A,184:POKE &H50B,SHA:POKE &H50C,SHB 710 LL2=INT(LL/256):LL1=LL-256*LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2:POKE &H15D,LL1:POKE &H15E,LL2 711 POKE &H638,LL1:POKE &H639,LL2:POKE &H5AC,LL1:POKE &H5AD,LL2 715 IF I=96 THEN GOTO 760 720 PRINT:PRINT:INPUT" Do you want: (1)One pix per frame (2)Four pix per frame (Default=1)";FR 730 IF FR=0 THEN FR=1 740 IF FR=1 THEN POKE &H3AB,233:POKE &H3AC,32:POKE &H3AD,2:POKE &H15D,LZA:POKE &H15E,LZB:GOTO 760 750 POKE &H2F1,33:POKE &H2F2,2:POKE &H3AC,1:POKE &H3B4,1:Q=BL-BP*P 760 IF EX=0 OR EX=2 THEN GOTO 810 770 IF FR>1 THEN GOTO 810 780 'next two lines expand S2 and M2 modes by 4 horizontally 790 IF I=4 THEN P=160:Q=BL-4*BP*P:POKE &H5CF,P:POKE &H5D0,0:POKE &H601,P:POKE &H13C,0:POKE &H13D,0:POKE &H602,0:POKE &H5D3,2:POKE &H605,2 800 IF I=77 THEN Q=BL-4*BP*P:BPO=34*BP:POKE &H3B4,4:POKE &H13C,BPO:POKE &H13D,0:POKE &H512,BPO:POKE &H513,0:POKE &H5D3,2:POKE &H605,2 810 IF V=1 THEN GOTO 850 820 VC=0:PRINT:PRINT:PRINT" Is Video Card (1)Trident mode 5D (2)Tseng mode 2E (3)ATI mode 62" 830 INPUT"(4)Paradise 5F (5)Chips&Tech mode 79 (6)Genoa mode 5C (7)VESA (Default=7)";VC 840 IF VC=0 THEN VC=7 'default choice 850 IF VC=1 THEN GOTO 1240 860 IF VC=2 THEN GOTO 930 870 IF VC=3 THEN GOTO 1600 880 IF VC=4 THEN GOTO 1670 890 IF VC=5 THEN GOTO 1740 895 IF VC=6 THEN GOTO 1800 900 IF VC=7 THEN GOTO 1880 901 GOTO 820 930 POKE &H113,46:POKE &H142,205:POKE &H144,136:POKE &H145,216:POKE &H146,238:POKE &H147,195 940 QB=INT(Q/256):QA=Q-256*QB:POKE &H3D6,QA:POKE &H3D7,QB:POKE &H5F1,QA:POKE &H5F2,QB:POKE &H6A5,QA:POKE &H6A6,QB 945 IF EX=2 AND I=4 THEN POKE &H600,235:POKE &H601,35 946 IF EX=2 AND I=77 THEN POKE &H600,235:POKE &H601,35 950 K=&H100:CALL K(S%,A$) 955 COLOR 7,9,4:CLS:GOTO 1249 960 COLOR 7,0,0:CLS:PRINT" ---F2 to reRUN---F5 to SYS CONFIG---F10 to DOS---":KEY 10,"system"+CHR$(13):KEY 5,"LIST 2000-"+CHR$(13):END 970 POKE &H2D7,1:POKE &H341,2:POKE &H66C,1:POKE &H4D7,1:POKE &H4F3,2:POKE &H65D,1 980 IF I=77 THEN L=152:GOTO 480 990 L=302:GOTO 480 1000 L=282 1010 BLOAD "vuroboh.asm",&H100 1020 PRINT:PRINT:INPUT" What white level count do you select (Default=138)";W 1030 IF W=0 THEN W=138 1040 POKE &H17D,W:POKE &H181,W:POKE &H183,W 1050 POKE &H337,1:POKE &H2D7,1 'No. poked is increment for fine tune with F&G 1060 OF=(640-2*L)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2 1070 POKE &H226,2:POKE &H1FD,103:POKE &H1FE,2:POKE &H242,103:POKE &H243,2 1080 IF I=2 THEN GOTO 1100 1090 POKE &H1FD,85:POKE &H242,85:POKE &H44D,85:POKE &H452,85 1100 GOTO 820 1110 POKE &H15D,24:POKE &H15E,2:POKE &H184,235:POKE &H185,1:POKE &H180,0:POKE &H3A8,235:POKE &H3A9,57 1120 POKE &H3EA,10:POKE &H3A2,224:POKE &H3A3,1:POKE &H13B,52:POKE &H13C,0:POKE &H16A,128:POKE &H16B,2 1130 LL=546:GOTO 710 1140 PRINT:PRINT:PRINT:INPUT" Do you choose (1)1024x768 or (2)640x480 (Default=1)";S 1150 IF S=0 THEN S=1 1160 BLOAD "vuwx.asm",&H100 1170 IF S=2 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1:POKE &H113,93 1180 POKE &H170,W:POKE &H174,W:POKE &H176,W 1190 GOTO 820 1200 BLOAD "vuro36b.asm",&H100 1210 LL=308:POKE &H13B,140:POKE &H3D3,26:POKE &H226,2 1220 IF I=11 THEN LL=288:POKE &H3D3,6 1230 GOTO 710 1240 IF I=6 THEN POKE &H113,&H5C 1245 GOTO 940 1249 PRINT" F2=ReRUN F5=SYS CONFIG F10=DOS" 1250 PRINT:PRINT:INPUT" Do you want to save last picture-y or n (Default=n)";P$ 1251 IF P$="" THEN P$="n" 1252 IF P$="n" THEN GOTO 960 1253 IF P$="y" THEN GOTO 1255 1254 GOTO 1530 1255 FOR Y=&HFCE TO &HFDA 1256 A=PEEK(Y) 1257 IF A=0 THEN GOTO 1260 1258 A$=CHR$(A) 1259 OF$=OF$+A$:NEXT Y 1260 PRINT:PRINT:PRINT OF$:PRINT:PRINT:INPUT" Save it in compressed format--y or n (Default=n)";F$ 1261 IF F$="" THEN F$="n" 1262 IF F$="n" THEN GOTO 1270 1263 IF F$="y" THEN GOTO 1270 1264 GOTO 1260 1270 DEF SEG=&H4F00 1280 BLOAD "c:\tv\savepix.asm",&H100 1300 PI=512:PO=512:K%=0:L%=0 1310 POKE &H192,LL1:POKE &H193,LL2:POKE &H1B9,LL1:POKE &H1BA,LL2 1320 BY=3*L-1:BYB=INT(BY/256):BYA=BY-256*BYB:POKE &H20D,BYA:POKE &H20E,BYB 1330 IF S%<0 THEN S!=65536+S% ELSE S!=S% 1340 S2=INT(S!/256):S1=S!-256*S2:POKE &H163,S1:POKE &H164,S2 1360 PRINT:PRINT:PRINT" The program will add an appropiate Mode suffix." 1370 PRINT:INPUT" What Name for Picture (Default is DO NOT SAVE)";PIX$ 1380 IF PIX$="" THEN GOTO 960 1390 IF I=3 THEN MO$=".s1":LE%=410 1400 IF I=4 THEN MO$=".s2":LE%=300 1410 IF I=5 THEN MO$=".90":LE%=360 1420 IF I=66 THEN MO$=".188":LE%=640 1430 IF I=6 THEN MO$=".94":LE%=450 1440 IF I=9 THEN MO$=".fax":LE%=480 1450 IF I=96 THEN MO$=".cfx":LE%=1440 1460 IF I=7 THEN MO$=".m1":LE%=420 1470 IF I=77 THEN MO$=".m2":LE%=300 1480 IF I=8 THEN MO$=".96":LE%=300 1490 L2=INT(LE%/256):L1=LE%-256*L2:POKE &H18B,L1:POKE &H18C,L2 1500 NF$=PIX$+MO$ 1505 IF F$="y" THEN NF$=DR$+NF$ 1510 K=&H100:CALL K(K%,L%,OF$,NF$) 1520 IF F$="n" THEN GOTO 960 1522 IF F$="y"THEN PRINT:PRINT:INPUT" What path/directory for compressed file";X$:GOTO 1524 1523 GOTO 1522 1524 SHELL "pk "+X$+" "+DR$+" "+PIX$+" "+MO$ 1525 GOTO 960 1530 IF P$="666" THEN COLOR 7,0,0:CLS:SYSTEM 1531 IF P$="888" THEN GOTO 960 1532 IF P$="RUN" THEN GOTO 960 1535 GOTO 1250 1600 POKE &H113,&H62:POKE &H444,192:POKE 321,235:POKE 322,90 'ATI video mode 62 1610 POKE 324,136:POKE 325,196 1620 POKE 326,128:POKE 327,228:POKE 328,225:POKE 329,208:POKE 330,227:POKE 331,8 1630 POKE 332,220:POKE 333,176:POKE 334,178:POKE 335,254:POKE 336,202:POKE 337,239:POKE 338,195 1640 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1:POKE 321,233:POKE 322,66:POKE 323,4:POKE &H58A,192 1650 IF I=6 THEN POKE &H113,&H61 1660 GOTO 940 1670 POKE &H113,&H72:POKE 321,186:POKE 322,206 'Paradise video mode 72 1680 POKE 323,3:POKE 324,176:POKE 325,9:POKE 326,136:POKE 327,220:POKE 328,208 1690 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,208:POKE 333,228:POKE 334,208:POKE 335,228 1700 POKE 336,239:POKE 337,195 1710 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1 1720 'IF I=6 THEN POKE &H113,&H5E 1730 GOTO 940 1740 POKE &H113,&H79:POKE 321,186:POKE 322,214 'Chips & Tech Mode 79 1750 POKE 323,3:POKE 324,176:POKE 325,16:POKE 326,136:POKE 327,220:POKE 328,208 1760 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,239:POKE 333,195 1770 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1 1780 IF I=6 THEN POKE &H113,&H78 1790 GOTO 940 1800 POKE &H113,&H5C:POKE 321,186:POKE 322,196 'Genoa mode 5c 1810 POKE 323,3:POKE 324,176:POKE 325,6:POKE 326,238:POKE 327,66:POKE 328,236 1820 POKE 329,36:POKE 330,199:POKE 331,128:POKE 332,227:POKE 333,7:POKE 334,208 1830 POKE 335,227:POKE 336,208:POKE 337,227:POKE 338,208:POKE 339,227:POKE 340,8 1840 POKE 341,216:POKE 342,238:POKE 343,195 1850 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1 1860 IF I=6 THEN POKE &H113,&H7E 1870 GOTO 940 1880 POKE &H111,79:POKE &H113,2:POKE 321,177 'VESA mode 112 1890 POKE 322,BS:POKE 323,210:POKE 324,227:POKE 325,136:POKE 326,218 1900 POKE 327,48:POKE 328,246:POKE 329,184:POKE 330,5:POKE 331,79:POKE 332,49:POKE 333,219:POKE 334,205 1910 POKE 335,16:POKE 336,195 1920 'IF I=6 THEN POKE &H398,0 1930 GOTO 940 2000 ' SYSTEM CONFIGURATION 2010 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 2015 DR$="d:" 'Ramdrive designation 2020 V=1 'V=0 is manual video card choice. V=1 is choice in line 2030. 2030 VC=7 'Video Card 1=Trident 2=Tseng 3=ATI 4=Paradise 5=Chips 6=Genoa 2040 '7=VESA (VESA card or VESA driver.Pick BS below to get full pix.) 2050 BS=4 'Bank Shift for different VESA configurations-values from 0 to 6 2051 BP=3 'Bytes per Pixel--use 3 for 1 mb. VC--some 2 mb cards use 4 2055 BL=2048'Bytes/Line in TRUCOLOR modes-ATI=1920 and Diamond PRO=2048 2060 DL=2 'Delay in sec.'s between slides in AUTO mode 2070 PT=6 'Pixels Trimmed from right edge of picture 2080 EX=2 'S2 and M2 aspect--EX=0 2xHoriz/2xVerti--EX=1 4xH/2xV--EX=2 2xH/1xV 2090 GOTO 80 2110 'INSTRUCTIONS 2120 'To change, move cursor and type over present value and ENTER. Then move 2130 'cursor into clear and hit F5 to check what you typed. To SAVE the change 2140 'hit F4 and ENTER. Otherwise hit F2 to reRUN with temporary change.